﻿Imports DAO
Imports DTO
Imports System.Data.Linq

Public Class ThongSoBUS
    Public Function LayBang() As IQueryable(Of ThongSo)
        Dim dt As IQueryable(Of ThongSo)
        Dim tsDAO As New ThongSoDAO
        dt = tsDAO.LayBang()
        Return dt
    End Function

    Public Function QD1_SoLuongNhapMin() As Integer
        Dim tsDAO As New ThongSoDAO
        Return tsDAO.QD1_SoLuongNhapMin()
    End Function

    Public Function QD1_SoLuongTonMax() As Integer
        Dim tsDAO As New ThongSoDAO
        Return tsDAO.QD1_SoLuongTonMax()
    End Function

    Public Function QD2_SoLuongTonSauBanMin() As Integer
         Dim tsDAO As New ThongSoDAO
        Return tsDAO.QD2_SoLuongTonSauBanMin()
    End Function

    Public Function QD2_SoTienNoMax() As Integer
        Dim tsDAO As New ThongSoDAO
        Return tsDAO.QD2_SoTienNoMax()
    End Function

    Public Function QD4_SuDung_Hay_KhongSuDung() As Integer
        Dim tsDAO As New ThongSoDAO
        Return tsDAO.QD4_SuDung_Hay_KhongSuDung()
    End Function

    Public Sub CapNhat(ByVal tsDTO As ThongSoDTO)
        Dim tsDAO As New ThongSoDAO
        tsDAO.CapNhat(tsDTO)
    End Sub

End Class
